/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / text-props.elc.z / text-props.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 36 3a 32 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:26 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 75 | 74 69 6c 73 2f 74 65 78 |3/lisp/u|tils/tex|
|000000a0| 74 2d 70 72 6f 70 73 2e | 65 6c 0a 3b 3b 3b 20 65 |t-props.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 33 20 22 56 61 74 69 63 | 61 6e 20 43 69 74 79 22 |3 "Vatic|an City"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 74 65 78 |    (err|or "`tex|
|000001f0| 74 2d 70 72 6f 70 73 2e | 65 6c 27 20 77 61 73 20 |t-props.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 23 40 34 32 38 20 |t nil)).|..#@428 |
|00000260| 59 6f 75 20 73 68 6f 75 | 6c 64 20 4e 45 56 45 52 |You shou|ld NEVER|
|00000270| 20 75 73 65 20 74 68 69 | 73 20 66 75 6e 63 74 69 | use thi|s functi|
|00000280| 6f 6e 2e 20 20 49 74 20 | 69 73 20 69 64 65 6f 6c |on.  It |is ideol|
|00000290| 6f 67 69 63 61 6c 6c 79 | 20 62 6c 61 73 70 68 65 |ogically| blasphe|
|000002a0| 6d 6f 75 73 2e 0a 49 74 | 20 69 73 20 70 72 6f 76 |mous..It| is prov|
|000002b0| 69 64 65 64 20 6f 6e 6c | 79 20 74 6f 20 65 61 73 |ided onl|y to eas|
|000002c0| 65 20 70 6f 72 74 69 6e | 67 20 6f 66 20 62 72 6f |e portin|g of bro|
|000002d0| 6b 65 6e 20 46 53 46 20 | 45 6d 61 63 73 20 70 72 |ken FSF |Emacs pr|
|000002e0| 6f 67 72 61 6d 73 2e 0a | 49 6e 73 74 65 61 64 2c |ograms..|Instead,|
|000002f0| 20 75 73 65 20 60 72 65 | 6d 6f 76 65 2d 74 65 78 | use `re|move-tex|
|00000300| 74 2d 70 72 6f 70 65 72 | 74 69 65 73 27 20 74 6f |t-proper|ties' to|
|00000310| 20 72 65 6d 6f 76 65 20 | 74 68 65 20 73 70 65 63 | remove |the spec|
|00000320| 69 66 69 63 20 70 72 6f | 70 65 72 74 69 65 73 0a |ific pro|perties.|
|00000330| 79 6f 75 20 64 6f 20 6e | 6f 74 20 77 61 6e 74 2e |you do n|ot want.|
|00000340| 0a 0a 43 6f 6d 70 6c 65 | 74 65 6c 79 20 72 65 70 |..Comple|tely rep|
|00000350| 6c 61 63 65 20 70 72 6f | 70 65 72 74 69 65 73 20 |lace pro|perties |
|00000360| 6f 66 20 74 65 78 74 20 | 66 72 6f 6d 20 53 54 41 |of text |from STA|
|00000370| 52 54 20 74 6f 20 45 4e | 44 2e 0a 54 68 65 20 74 |RT to EN|D..The t|
|00000380| 68 69 72 64 20 61 72 67 | 75 6d 65 6e 74 20 50 52 |hird arg|ument PR|
|00000390| 4f 50 53 20 69 73 20 74 | 68 65 20 6e 65 77 20 70 |OPS is t|he new p|
|000003a0| 72 6f 70 65 72 74 79 20 | 6c 69 73 74 2e 0a 54 68 |roperty |list..Th|
|000003b0| 65 20 6f 70 74 69 6f 6e | 61 6c 20 66 6f 75 72 74 |e option|al fourt|
|000003c0| 68 20 61 72 67 75 6d 65 | 6e 74 2c 20 42 55 46 46 |h argume|nt, BUFF|
|000003d0| 45 52 2d 4f 52 2d 53 54 | 52 49 4e 47 2c 0a 69 73 |ER-OR-ST|RING,.is|
|000003e0| 20 74 68 65 20 73 74 72 | 69 6e 67 20 6f 72 20 62 | the str|ing or b|
|000003f0| 75 66 66 65 72 20 63 6f | 6e 74 61 69 6e 69 6e 67 |uffer co|ntaining|
|00000400| 20 74 68 65 20 74 65 78 | 74 2e 1f 0a 28 64 65 66 | the tex|t...(def|
|00000410| 61 6c 69 61 73 20 27 73 | 65 74 2d 74 65 78 74 2d |alias 's|et-text-|
|00000420| 70 72 6f 70 65 72 74 69 | 65 73 20 23 5b 28 73 74 |properti|es #[(st|
|00000430| 61 72 74 20 65 6e 64 20 | 70 72 6f 70 73 20 26 6f |art end |props &o|
|00000440| 70 74 69 6f 6e 61 6c 20 | 62 75 66 66 65 72 2d 6f |ptional |buffer-o|
|00000450| 72 2d 73 74 72 69 6e 67 | 29 20 22 c0 c1 5c 6e 0b |r-string|) "..\n.|
|00000460| 0c c5 89 c6 26 07 88 c7 | 0b 0c 0e 08 5c 6e 24 87 |....&...|....\n$.|
|00000470| 22 20 5b 6d 61 70 2d 65 | 78 74 65 6e 74 73 20 23 |" [map-e|xtents #|
|00000480| 5b 28 65 78 74 65 6e 74 | 20 69 67 6e 6f 72 65 64 |[(extent| ignored|
|00000490| 29 20 22 c0 09 5c 6e c3 | 0c c5 5c 22 c6 44 0e 07 |) "..\n.|..\".D..|
|000004a0| 24 88 c6 87 22 20 5b 72 | 65 6d 6f 76 65 2d 74 65 |$..." [r|emove-te|
|000004b0| 78 74 2d 70 72 6f 70 65 | 72 74 69 65 73 20 73 74 |xt-prope|rties st|
|000004c0| 61 72 74 20 65 6e 64 20 | 65 78 74 65 6e 74 2d 70 |art end |extent-p|
|000004d0| 72 6f 70 65 72 74 79 20 | 65 78 74 65 6e 74 20 74 |roperty |extent t|
|000004e0| 65 78 74 2d 70 72 6f 70 | 20 6e 69 6c 20 62 75 66 |ext-prop| nil buf|
|000004f0| 66 65 72 2d 6f 72 2d 73 | 74 72 69 6e 67 5d 20 36 |fer-or-s|tring] 6|
|00000500| 5d 20 62 75 66 66 65 72 | 2d 6f 72 2d 73 74 72 69 |] buffer|-or-stri|
|00000510| 6e 67 20 73 74 61 72 74 | 20 65 6e 64 20 6e 69 6c |ng start| end nil|
|00000520| 20 74 65 78 74 2d 70 72 | 6f 70 20 61 64 64 2d 74 | text-pr|op add-t|
|00000530| 65 78 74 2d 70 72 6f 70 | 65 72 74 69 65 73 20 70 |ext-prop|erties p|
|00000540| 72 6f 70 73 5d 20 38 20 | 28 23 24 20 2e 20 36 30 |rops] 8 |(#$ . 60|
|00000550| 38 29 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |8)]).(de|falias '|
|00000560| 65 78 74 65 6e 74 2d 70 | 72 6f 70 65 72 74 69 65 |extent-p|ropertie|
|00000570| 73 2d 61 74 2d 31 20 23 | 5b 28 70 6f 73 69 74 69 |s-at-1 #|[(positi|
|00000580| 6f 6e 20 62 75 66 66 65 | 72 2d 6f 72 2d 73 74 72 |on buffe|r-or-str|
|00000590| 69 6e 67 20 74 65 78 74 | 2d 70 72 6f 70 73 2d 6f |ing text|-props-o|
|000005a0| 6e 6c 79 29 20 22 c0 89 | 89 19 1a 1b c4 0d 0e 06 |nly) "..|........|
|000005b0| 0e 07 ad 81 c8 0b 24 89 | 13 83 aa 00 0e 07 ab 91 |......$.|........|
|000005c0| c9 0b c8 5c 22 89 1e 5c | 6e c9 0b 0e 5c 6e 5c 22 |...\"..\|n...\n\"|
|000005d0| 44 11 29 aa d9 cb 0b 21 | 11 cc 0b 21 ac 85 cd 0b |D.)....!|...!....|
|000005e0| 21 ab cb 0d c9 0b ce 5c | 22 ab 85 cf 0b 21 aa 83 |!......\|"....!..|
|000005f0| d0 0b 21 55 ac b9 09 c0 | 1e 11 89 1e 12 ab af 0e |..!U....|........|
|00000600| 12 40 ce 61 ac 87 0e 12 | 40 d3 61 ab 95 0e 11 ab |.@.a....|@.a.....|
|00000610| 8a 0e 11 0e 12 41 41 a1 | 88 aa 84 09 41 41 11 c0 |.....AA.|....AA..|
|00000620| 16 12 0e 12 16 11 0e 12 | 41 89 16 12 ac 51 2a 5c |........|A....Q*\|
|00000630| 6e ac 85 09 12 82 06 00 | 09 83 06 00 d4 5c 6e 09 |n.......|.....\n.|
|00000640| 40 5c 22 ac 89 09 40 09 | 41 40 5c 6e 42 42 12 09 |@\"...@.|A@\nBB..|
|00000650| 41 41 89 11 ac 69 82 06 | 00 5c 6e 2b 87 22 20 5b |AA...i..|.\n+." [|
|00000660| 6e 69 6c 20 6e 65 77 2d | 70 72 6f 70 73 20 70 72 |nil new-|props pr|
|00000670| 6f 70 73 20 65 78 74 65 | 6e 74 20 65 78 74 65 6e |ops exte|nt exten|
|00000680| 74 2d 61 74 20 70 6f 73 | 69 74 69 6f 6e 20 62 75 |t-at pos|ition bu|
|00000690| 66 66 65 72 2d 6f 72 2d | 73 74 72 69 6e 67 20 74 |ffer-or-|string t|
|000006a0| 65 78 74 2d 70 72 6f 70 | 73 2d 6f 6e 6c 79 20 74 |ext-prop|s-only t|
|000006b0| 65 78 74 2d 70 72 6f 70 | 20 65 78 74 65 6e 74 2d |ext-prop| extent-|
|000006c0| 70 72 6f 70 65 72 74 79 | 20 70 72 6f 70 20 65 78 |property| prop ex|
|000006d0| 74 65 6e 74 2d 70 72 6f | 70 65 72 74 69 65 73 20 |tent-pro|perties |
|000006e0| 65 78 74 65 6e 74 2d 62 | 65 67 69 6e 2d 67 6c 79 |extent-b|egin-gly|
|000006f0| 70 68 20 65 78 74 65 6e | 74 2d 65 6e 64 2d 67 6c |ph exten|t-end-gl|
|00000700| 79 70 68 20 62 65 67 69 | 6e 2d 67 6c 79 70 68 20 |yph begi|n-glyph |
|00000710| 65 78 74 65 6e 74 2d 73 | 74 61 72 74 2d 70 6f 73 |extent-s|tart-pos|
|00000720| 69 74 69 6f 6e 20 65 78 | 74 65 6e 74 2d 65 6e 64 |ition ex|tent-end|
|00000730| 2d 70 6f 73 69 74 69 6f | 6e 20 70 72 65 76 20 72 |-positio|n prev r|
|00000740| 65 73 74 20 65 6e 64 2d | 67 6c 79 70 68 20 67 65 |est end-|glyph ge|
|00000750| 74 66 5d 20 36 5d 29 0a | 23 40 33 39 32 20 52 65 |tf] 6]).|#@392 Re|
|00000760| 74 75 72 6e 73 20 74 68 | 65 20 70 72 6f 70 65 72 |turns th|e proper|
|00000770| 74 69 65 73 20 6f 66 20 | 74 68 65 20 63 68 61 72 |ties of |the char|
|00000780| 61 63 74 65 72 20 61 74 | 20 74 68 65 20 67 69 76 |acter at| the giv|
|00000790| 65 6e 20 70 6f 73 69 74 | 69 6f 6e 0a 69 6e 20 4f |en posit|ion.in O|
|000007a0| 42 4a 45 43 54 20 28 61 | 20 73 74 72 69 6e 67 20 |BJECT (a| string |
|000007b0| 6f 72 20 62 75 66 66 65 | 72 29 20 62 79 20 6d 65 |or buffe|r) by me|
|000007c0| 72 67 69 6e 67 20 74 68 | 65 20 70 72 6f 70 65 72 |rging th|e proper|
|000007d0| 74 69 65 73 20 6f 66 20 | 6f 76 65 72 6c 61 70 70 |ties of |overlapp|
|000007e0| 69 6e 67 0a 65 78 74 65 | 6e 74 73 2e 20 20 54 68 |ing.exte|nts.  Th|
|000007f0| 65 20 72 65 74 75 72 6e | 65 64 20 76 61 6c 75 65 |e return|ed value|
|00000800| 20 69 73 20 61 20 70 72 | 6f 70 65 72 74 79 20 6c | is a pr|operty l|
|00000810| 69 73 74 2c 20 73 6f 6d | 65 20 6f 66 20 77 68 69 |ist, som|e of whi|
|00000820| 63 68 20 6d 61 79 20 62 | 65 0a 73 68 61 72 65 64 |ch may b|e.shared|
|00000830| 20 77 69 74 68 20 6f 74 | 68 65 72 20 73 74 72 75 | with ot|her stru|
|00000840| 63 74 75 72 65 73 2e 20 | 20 59 6f 75 20 6d 75 73 |ctures. | You mus|
|00000850| 74 20 6e 6f 74 20 6d 6f | 64 69 66 79 20 69 74 2e |t not mo|dify it.|
|00000860| 0a 0a 49 66 20 50 4f 53 | 49 54 49 4f 4e 20 69 73 |..If POS|ITION is|
|00000870| 20 61 74 20 74 68 65 20 | 65 6e 64 20 6f 66 20 4f | at the |end of O|
|00000880| 42 4a 45 43 54 2c 20 74 | 68 65 20 76 61 6c 75 65 |BJECT, t|he value|
|00000890| 20 69 73 20 6e 69 6c 2e | 0a 0a 54 68 69 73 20 72 | is nil.|..This r|
|000008a0| 65 74 75 72 6e 73 20 61 | 6c 6c 20 70 72 6f 70 65 |eturns a|ll prope|
|000008b0| 72 74 69 65 73 20 6f 6e | 20 61 6c 6c 20 65 78 74 |rties on| all ext|
|000008c0| 65 6e 74 73 2e 0a 53 65 | 65 20 61 6c 73 6f 20 60 |ents..Se|e also `|
|000008d0| 74 65 78 74 2d 70 72 6f | 70 65 72 74 69 65 73 2d |text-pro|perties-|
|000008e0| 61 74 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |at'...(d|efalias |
|000008f0| 27 65 78 74 65 6e 74 2d | 70 72 6f 70 65 72 74 69 |'extent-|properti|
|00000900| 65 73 2d 61 74 20 23 5b | 28 70 6f 73 69 74 69 6f |es-at #[|(positio|
|00000910| 6e 20 26 6f 70 74 69 6f | 6e 61 6c 20 6f 62 6a 65 |n &optio|nal obje|
|00000920| 63 74 29 20 22 c0 09 5c | 6e c3 23 87 22 20 5b 65 |ct) "..\|n.#." [e|
|00000930| 78 74 65 6e 74 2d 70 72 | 6f 70 65 72 74 69 65 73 |xtent-pr|operties|
|00000940| 2d 61 74 2d 31 20 70 6f | 73 69 74 69 6f 6e 20 6f |-at-1 po|sition o|
|00000950| 62 6a 65 63 74 20 6e 69 | 6c 5d 20 34 20 28 23 24 |bject ni|l] 4 (#$|
|00000960| 20 2e 20 31 38 38 36 29 | 5d 29 0a 23 40 34 31 37 | . 1886)|]).#@417|
|00000970| 20 52 65 74 75 72 6e 73 | 20 74 68 65 20 70 72 6f | Returns| the pro|
|00000980| 70 65 72 74 69 65 73 20 | 6f 66 20 74 68 65 20 63 |perties |of the c|
|00000990| 68 61 72 61 63 74 65 72 | 20 61 74 20 74 68 65 20 |haracter| at the |
|000009a0| 67 69 76 65 6e 20 70 6f | 73 69 74 69 6f 6e 0a 69 |given po|sition.i|
|000009b0| 6e 20 4f 42 4a 45 43 54 | 20 28 61 20 73 74 72 69 |n OBJECT| (a stri|
|000009c0| 6e 67 20 6f 72 20 62 75 | 66 66 65 72 29 20 62 79 |ng or bu|ffer) by|
|000009d0| 20 6d 65 72 67 69 6e 67 | 20 74 68 65 20 70 72 6f | merging| the pro|
|000009e0| 70 65 72 74 69 65 73 20 | 6f 66 20 6f 76 65 72 6c |perties |of overl|
|000009f0| 61 70 70 69 6e 67 0a 65 | 78 74 65 6e 74 73 2e 20 |apping.e|xtents. |
|00000a00| 20 54 68 65 20 72 65 74 | 75 72 6e 65 64 20 76 61 | The ret|urned va|
|00000a10| 6c 75 65 20 69 73 20 61 | 20 70 72 6f 70 65 72 74 |lue is a| propert|
|00000a20| 79 20 6c 69 73 74 2c 20 | 73 6f 6d 65 20 6f 66 20 |y list, |some of |
|00000a30| 77 68 69 63 68 20 6d 61 | 79 20 62 65 0a 73 68 61 |which ma|y be.sha|
|00000a40| 72 65 64 20 77 69 74 68 | 20 6f 74 68 65 72 20 73 |red with| other s|
|00000a50| 74 72 75 63 74 75 72 65 | 73 2e 20 20 59 6f 75 20 |tructure|s.  You |
|00000a60| 6d 75 73 74 20 6e 6f 74 | 20 6d 6f 64 69 66 79 20 |must not| modify |
|00000a70| 69 74 2e 0a 0a 49 66 20 | 50 4f 53 49 54 49 4f 4e |it...If |POSITION|
|00000a80| 20 69 73 20 61 74 20 74 | 68 65 20 65 6e 64 20 6f | is at t|he end o|
|00000a90| 66 20 4f 42 4a 45 43 54 | 2c 20 74 68 65 20 76 61 |f OBJECT|, the va|
|00000aa0| 6c 75 65 20 69 73 20 6e | 69 6c 2e 0a 0a 54 68 69 |lue is n|il...Thi|
|00000ab0| 73 20 72 65 74 75 72 6e | 73 20 6f 6e 6c 79 20 74 |s return|s only t|
|00000ac0| 68 6f 73 65 20 70 72 6f | 70 65 72 74 69 65 73 20 |hose pro|perties |
|00000ad0| 61 64 64 65 64 20 77 69 | 74 68 20 60 70 75 74 2d |added wi|th `put-|
|00000ae0| 74 65 78 74 2d 70 72 6f | 70 65 72 74 79 27 2e 0a |text-pro|perty'..|
|00000af0| 53 65 65 20 61 6c 73 6f | 20 60 65 78 74 65 6e 74 |See also| `extent|
|00000b00| 2d 70 72 6f 70 65 72 74 | 69 65 73 2d 61 74 27 2e |-propert|ies-at'.|
|00000b10| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 65 78 |..(defal|ias 'tex|
|00000b20| 74 2d 70 72 6f 70 65 72 | 74 69 65 73 2d 61 74 20 |t-proper|ties-at |
|00000b30| 23 5b 28 70 6f 73 69 74 | 69 6f 6e 20 26 6f 70 74 |#[(posit|ion &opt|
|00000b40| 69 6f 6e 61 6c 20 6f 62 | 6a 65 63 74 29 20 22 c0 |ional ob|ject) ".|
|00000b50| 09 5c 6e c3 23 87 22 20 | 5b 65 78 74 65 6e 74 2d |.\n.#." |[extent-|
|00000b60| 70 72 6f 70 65 72 74 69 | 65 73 2d 61 74 2d 31 20 |properti|es-at-1 |
|00000b70| 70 6f 73 69 74 69 6f 6e | 20 6f 62 6a 65 63 74 20 |position| object |
|00000b80| 74 5d 20 34 20 28 23 24 | 20 2e 20 32 34 31 37 29 |t] 4 (#$| . 2417)|
|00000b90| 5d 29 0a 23 40 32 39 37 | 20 43 68 65 63 6b 20 74 |]).#@297| Check t|
|00000ba0| 65 78 74 20 66 72 6f 6d | 20 53 54 41 52 54 20 74 |ext from| START t|
|00000bb0| 6f 20 45 4e 44 20 74 6f | 20 73 65 65 20 69 66 20 |o END to| see if |
|00000bc0| 50 52 4f 50 20 69 73 20 | 65 76 65 72 20 60 65 71 |PROP is |ever `eq|
|00000bd0| 27 20 74 6f 20 56 41 4c | 55 45 2e 0a 49 66 20 73 |' to VAL|UE..If s|
|00000be0| 6f 2c 20 72 65 74 75 72 | 6e 20 74 68 65 20 70 6f |o, retur|n the po|
|00000bf0| 73 69 74 69 6f 6e 20 6f | 66 20 74 68 65 20 66 69 |sition o|f the fi|
|00000c00| 72 73 74 20 63 68 61 72 | 61 63 74 65 72 20 77 68 |rst char|acter wh|
|00000c10| 6f 73 65 20 50 52 4f 50 | 20 69 73 20 60 65 71 27 |ose PROP| is `eq'|
|00000c20| 0a 74 6f 20 56 41 4c 55 | 45 2e 20 20 4f 74 68 65 |.to VALU|E.  Othe|
|00000c30| 72 77 69 73 65 20 72 65 | 74 75 72 6e 20 6e 69 6c |rwise re|turn nil|
|00000c40| 2e 0a 54 68 65 20 6f 70 | 74 69 6f 6e 61 6c 20 66 |..The op|tional f|
|00000c50| 69 66 74 68 20 61 72 67 | 75 6d 65 6e 74 2c 20 42 |ifth arg|ument, B|
|00000c60| 55 46 46 45 52 2d 4f 52 | 2d 53 54 52 49 4e 47 2c |UFFER-OR|-STRING,|
|00000c70| 20 69 73 20 74 68 65 20 | 62 75 66 66 65 72 20 6f | is the |buffer o|
|00000c80| 72 20 73 74 72 69 6e 67 | 0a 63 6f 6e 74 61 69 6e |r string|.contain|
|00000c90| 69 6e 67 20 74 68 65 20 | 74 65 78 74 20 61 6e 64 |ing the |text and|
|00000ca0| 20 64 65 66 61 75 6c 74 | 73 20 74 6f 20 74 68 65 | default|s to the|
|00000cb0| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 2e | current| buffer.|
|00000cc0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 65 78 |..(defal|ias 'tex|
|00000cd0| 74 2d 70 72 6f 70 65 72 | 74 79 2d 61 6e 79 20 23 |t-proper|ty-any #|
|00000ce0| 5b 28 73 74 61 72 74 20 | 65 6e 64 20 70 72 6f 70 |[(start |end prop|
|00000cf0| 20 76 61 6c 75 65 20 26 | 6f 70 74 69 6f 6e 61 6c | value &|optional|
|00000d00| 20 62 75 66 66 65 72 2d | 6f 72 2d 73 74 72 69 6e | buffer-|or-strin|
|00000d10| 67 29 20 22 08 ab 98 08 | 09 57 ab 93 5c 6e c3 08 |g) "....|.W..\n..|
|00000d20| 0c 0d 23 61 ac 8a c6 08 | 0c 0d 09 24 89 10 ac 68 |..#a....|...$...h|
|00000d30| 08 09 61 3f ad 81 08 87 | 22 20 5b 73 74 61 72 74 |..a?....|" [start|
|00000d40| 20 65 6e 64 20 76 61 6c | 75 65 20 67 65 74 2d 74 | end val|ue get-t|
|00000d50| 65 78 74 2d 70 72 6f 70 | 65 72 74 79 20 70 72 6f |ext-prop|erty pro|
|00000d60| 70 20 62 75 66 66 65 72 | 2d 6f 72 2d 73 74 72 69 |p buffer|-or-stri|
|00000d70| 6e 67 20 6e 65 78 74 2d | 73 69 6e 67 6c 65 2d 70 |ng next-|single-p|
|00000d80| 72 6f 70 65 72 74 79 2d | 63 68 61 6e 67 65 5d 20 |roperty-|change] |
|00000d90| 36 20 28 23 24 20 2e 20 | 32 39 36 39 29 5d 29 0a |6 (#$ . |2969)]).|
|00000da0| 23 40 33 30 36 20 43 68 | 65 63 6b 20 74 65 78 74 |#@306 Ch|eck text|
|00000db0| 20 66 72 6f 6d 20 53 54 | 41 52 54 20 74 6f 20 45 | from ST|ART to E|
|00000dc0| 4e 44 20 74 6f 20 73 65 | 65 20 69 66 20 50 52 4f |ND to se|e if PRO|
|00000dd0| 50 20 69 73 20 65 76 65 | 72 20 6e 6f 74 20 60 65 |P is eve|r not `e|
|00000de0| 71 27 20 74 6f 20 56 41 | 4c 55 45 2e 0a 49 66 20 |q' to VA|LUE..If |
|00000df0| 73 6f 2c 20 72 65 74 75 | 72 6e 20 74 68 65 20 70 |so, retu|rn the p|
|00000e00| 6f 73 69 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 66 |osition |of the f|
|00000e10| 69 72 73 74 20 63 68 61 | 72 61 63 74 65 72 20 77 |irst cha|racter w|
|00000e20| 68 6f 73 65 20 50 52 4f | 50 20 69 73 20 6e 6f 74 |hose PRO|P is not|
|00000e30| 0a 60 65 71 27 20 74 6f | 20 56 41 4c 55 45 2e 20 |.`eq' to| VALUE. |
|00000e40| 20 4f 74 68 65 72 77 69 | 73 65 2c 20 72 65 74 75 | Otherwi|se, retu|
|00000e50| 72 6e 20 6e 69 6c 2e 0a | 54 68 65 20 6f 70 74 69 |rn nil..|The opti|
|00000e60| 6f 6e 61 6c 20 66 69 66 | 74 68 20 61 72 67 75 6d |onal fif|th argum|
|00000e70| 65 6e 74 2c 20 42 55 46 | 46 45 52 2d 4f 52 2d 53 |ent, BUF|FER-OR-S|
|00000e80| 54 52 49 4e 47 2c 20 69 | 73 20 74 68 65 20 62 75 |TRING, i|s the bu|
|00000e90| 66 66 65 72 20 6f 72 20 | 73 74 72 69 6e 67 0a 63 |ffer or |string.c|
|00000ea0| 6f 6e 74 61 69 6e 69 6e | 67 20 74 68 65 20 74 65 |ontainin|g the te|
|00000eb0| 78 74 20 61 6e 64 20 64 | 65 66 61 75 6c 74 73 20 |xt and d|efaults |
|00000ec0| 74 6f 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |to the c|urrent b|
|00000ed0| 75 66 66 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |uffer...|(defalia|
|00000ee0| 73 20 27 74 65 78 74 2d | 70 72 6f 70 65 72 74 79 |s 'text-|property|
|00000ef0| 2d 6e 6f 74 2d 61 6c 6c | 20 23 5b 28 73 74 61 72 |-not-all| #[(star|
|00000f00| 74 20 65 6e 64 20 70 72 | 6f 70 20 76 61 6c 75 65 |t end pr|op value|
|00000f10| 20 26 6f 70 74 69 6f 6e | 61 6c 20 62 75 66 66 65 | &option|al buffe|
|00000f20| 72 2d 6f 72 2d 73 74 72 | 69 6e 67 29 20 22 08 c1 |r-or-str|ing) "..|
|00000f30| 5c 6e 0b 0c 23 61 ac 82 | 5c 6e 87 c5 5c 6e 0b 0c |\n..#a..|\n..\n..|
|00000f40| 0e 06 24 89 1e 07 0e 06 | 61 3f ad 82 0e 07 29 87 |..$.....|a?....).|
|00000f50| 22 20 5b 76 61 6c 75 65 | 20 67 65 74 2d 74 65 78 |" [value| get-tex|
|00000f60| 74 2d 70 72 6f 70 65 72 | 74 79 20 73 74 61 72 74 |t-proper|ty start|
|00000f70| 20 70 72 6f 70 20 62 75 | 66 66 65 72 2d 6f 72 2d | prop bu|ffer-or-|
|00000f80| 73 74 72 69 6e 67 20 6e | 65 78 74 2d 73 69 6e 67 |string n|ext-sing|
|00000f90| 6c 65 2d 70 72 6f 70 65 | 72 74 79 2d 63 68 61 6e |le-prope|rty-chan|
|00000fa0| 67 65 20 65 6e 64 20 72 | 65 74 76 61 6c 5d 20 36 |ge end r|etval] 6|
|00000fb0| 20 28 23 24 20 2e 20 33 | 34 39 34 29 5d 29 0a 23 | (#$ . 3|494)]).#|
|00000fc0| 40 37 35 38 20 52 65 74 | 75 72 6e 20 74 68 65 20 |@758 Ret|urn the |
|00000fd0| 70 6f 73 69 74 69 6f 6e | 20 6f 66 20 6e 65 78 74 |position| of next|
|00000fe0| 20 70 72 6f 70 65 72 74 | 79 20 63 68 61 6e 67 65 | propert|y change|
|00000ff0| 2e 0a 53 63 61 6e 73 20 | 66 6f 72 77 61 72 64 20 |..Scans |forward |
|00001000| 66 72 6f 6d 20 50 4f 53 | 20 69 6e 20 42 55 46 46 |from POS| in BUFF|
|00001010| 45 52 2d 4f 52 2d 53 54 | 52 49 4e 47 20 28 64 65 |ER-OR-ST|RING (de|
|00001020| 66 61 75 6c 74 73 20 74 | 6f 20 74 68 65 20 63 75 |faults t|o the cu|
|00001030| 72 72 65 6e 74 20 62 75 | 66 66 65 72 29 0a 20 75 |rrent bu|ffer). u|
|00001040| 6e 74 69 6c 20 69 74 20 | 66 69 6e 64 73 20 61 20 |ntil it |finds a |
|00001050| 63 68 61 6e 67 65 20 69 | 6e 20 73 6f 6d 65 20 74 |change i|n some t|
|00001060| 65 78 74 20 70 72 6f 70 | 65 72 74 79 2c 20 74 68 |ext prop|erty, th|
|00001070| 65 6e 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 70 |en retur|ns the p|
|00001080| 6f 73 69 74 69 6f 6e 20 | 6f 66 0a 20 74 68 65 20 |osition |of. the |
|00001090| 63 68 61 6e 67 65 2e 0a | 52 65 74 75 72 6e 73 20 |change..|Returns |
|000010a0| 6e 69 6c 20 69 66 20 74 | 68 65 20 70 72 6f 70 65 |nil if t|he prope|
|000010b0| 72 74 69 65 73 20 72 65 | 6d 61 69 6e 20 75 6e 63 |rties re|main unc|
|000010c0| 68 61 6e 67 65 64 20 61 | 6c 6c 20 74 68 65 20 77 |hanged a|ll the w|
|000010d0| 61 79 20 74 6f 20 74 68 | 65 20 65 6e 64 2e 0a 49 |ay to th|e end..I|
|000010e0| 66 20 74 68 65 20 76 61 | 6c 75 65 20 69 73 20 6e |f the va|lue is n|
|000010f0| 6f 6e 2d 6e 69 6c 2c 20 | 69 74 20 69 73 20 61 20 |on-nil, |it is a |
|00001100| 70 6f 73 69 74 69 6f 6e | 20 67 72 65 61 74 65 72 |position| greater|
|00001110| 20 74 68 61 6e 20 50 4f | 53 2c 20 6e 65 76 65 72 | than PO|S, never|
|00001120| 20 65 71 75 61 6c 2e 0a | 49 66 20 74 68 65 20 6f | equal..|If the o|
|00001130| 70 74 69 6f 6e 61 6c 20 | 74 68 69 72 64 20 61 72 |ptional |third ar|
|00001140| 67 75 6d 65 6e 74 20 4c | 49 4d 49 54 20 69 73 20 |gument L|IMIT is |
|00001150| 6e 6f 6e 2d 6e 69 6c 2c | 20 64 6f 6e 27 74 20 73 |non-nil,| don't s|
|00001160| 65 61 72 63 68 0a 20 70 | 61 73 74 20 70 6f 73 69 |earch. p|ast posi|
|00001170| 74 69 6f 6e 20 4c 49 4d | 49 54 3b 20 72 65 74 75 |tion LIM|IT; retu|
|00001180| 72 6e 20 4c 49 4d 49 54 | 20 69 66 20 6e 6f 74 68 |rn LIMIT| if noth|
|00001190| 69 6e 67 20 69 73 20 66 | 6f 75 6e 64 20 62 65 66 |ing is f|ound bef|
|000011a0| 6f 72 65 20 4c 49 4d 49 | 54 2e 0a 49 66 20 74 77 |ore LIMI|T..If tw|
|000011b0| 6f 20 6f 72 20 6d 6f 72 | 65 20 65 78 74 65 6e 74 |o or mor|e extent|
|000011c0| 73 20 77 69 74 68 20 63 | 6f 6e 66 6c 69 63 74 69 |s with c|onflicti|
|000011d0| 6e 67 20 6e 6f 6e 2d 6e | 69 6c 20 76 61 6c 75 65 |ng non-n|il value|
|000011e0| 73 20 66 6f 72 20 61 20 | 70 72 6f 70 65 72 74 79 |s for a |property|
|000011f0| 20 6f 76 65 72 6c 61 70 | 0a 20 61 20 70 61 72 74 | overlap|. a part|
|00001200| 69 63 75 6c 61 72 20 63 | 68 61 72 61 63 74 65 72 |icular c|haracter|
|00001210| 2c 20 69 74 20 69 73 20 | 75 6e 64 65 66 69 6e 65 |, it is |undefine|
|00001220| 64 20 77 68 69 63 68 20 | 76 61 6c 75 65 20 69 73 |d which |value is|
|00001230| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 74 6f 20 62 | conside|red to b|
|00001240| 65 0a 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |e. the v|alue of |
|00001250| 74 68 65 20 70 72 6f 70 | 65 72 74 79 2e 20 28 4e |the prop|erty. (N|
|00001260| 6f 74 65 20 74 68 61 74 | 20 74 68 69 73 20 73 69 |ote that| this si|
|00001270| 74 75 61 74 69 6f 6e 20 | 77 69 6c 6c 20 6e 6f 74 |tuation |will not|
|00001280| 20 68 61 70 70 65 6e 20 | 69 66 0a 20 79 6f 75 20 | happen |if. you |
|00001290| 61 6c 77 61 79 73 20 75 | 73 65 20 74 68 65 20 74 |always u|se the t|
|000012a0| 65 78 74 2d 70 72 6f 70 | 65 72 74 79 20 70 72 69 |ext-prop|erty pri|
|000012b0| 6d 69 74 69 76 65 73 2e | 29 1f 0a 28 64 65 66 61 |mitives.|)..(defa|
|000012c0| 6c 69 61 73 20 27 6e 65 | 78 74 2d 70 72 6f 70 65 |lias 'ne|xt-prope|
|000012d0| 72 74 79 2d 63 68 61 6e | 67 65 20 23 5b 28 70 6f |rty-chan|ge #[(po|
|000012e0| 73 20 26 6f 70 74 69 6f | 6e 61 6c 20 62 75 66 66 |s &optio|nal buff|
|000012f0| 65 72 2d 6f 72 2d 73 74 | 72 69 6e 67 20 6c 69 6d |er-or-st|ring lim|
|00001300| 69 74 29 20 22 08 3f 19 | 08 ac 8d c2 0b 21 ab 85 |it) ".?.|.....!..|
|00001310| c4 0b 21 aa 82 0b 47 10 | c5 0e 06 0b 5c 22 1e 07 |..!...G.|....\"..|
|00001320| c8 0e 06 0b 5c 22 89 16 | 06 08 57 ab 8b c9 0e 07 |....\"..|..W.....|
|00001330| c5 0e 06 0b 5c 22 5c 22 | ac 69 29 0e 06 08 57 ab |....\"\"|.i)...W.|
|00001340| 84 0e 06 aa 85 09 3f ad | 81 08 29 87 22 20 5b 6c |......?.|..)." [l|
|00001350| 69 6d 69 74 20 6c 69 6d | 69 74 2d 77 61 73 2d 6e |imit lim|it-was-n|
|00001360| 69 6c 20 62 75 66 66 65 | 72 70 20 62 75 66 66 65 |il buffe|rp buffe|
|00001370| 72 2d 6f 72 2d 73 74 72 | 69 6e 67 20 70 6f 69 6e |r-or-str|ing poin|
|00001380| 74 2d 6d 61 78 20 65 78 | 74 65 6e 74 2d 70 72 6f |t-max ex|tent-pro|
|00001390| 70 65 72 74 69 65 73 2d | 61 74 20 70 6f 73 20 76 |perties-|at pos v|
|000013a0| 61 6c 75 65 20 6e 65 78 | 74 2d 65 78 74 65 6e 74 |alue nex|t-extent|
|000013b0| 2d 63 68 61 6e 67 65 20 | 70 6c 69 73 74 73 2d 65 |-change |plists-e|
|000013c0| 71 5d 20 35 20 28 23 24 | 20 2e 20 34 30 33 37 29 |q] 5 (#$| . 4037)|
|000013d0| 5d 29 0a 23 40 37 37 30 | 20 52 65 74 75 72 6e 20 |]).#@770| Return |
|000013e0| 74 68 65 20 70 6f 73 69 | 74 69 6f 6e 20 6f 66 20 |the posi|tion of |
|000013f0| 70 72 65 76 69 6f 75 73 | 20 70 72 6f 70 65 72 74 |previous| propert|
|00001400| 79 20 63 68 61 6e 67 65 | 2e 0a 53 63 61 6e 73 20 |y change|..Scans |
|00001410| 62 61 63 6b 77 61 72 64 | 20 66 72 6f 6d 20 50 4f |backward| from PO|
|00001420| 53 20 69 6e 20 42 55 46 | 46 45 52 2d 4f 52 2d 53 |S in BUF|FER-OR-S|
|00001430| 54 52 49 4e 47 20 28 64 | 65 66 61 75 6c 74 73 20 |TRING (d|efaults |
|00001440| 74 6f 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |to the c|urrent b|
|00001450| 75 66 66 65 72 29 0a 20 | 75 6e 74 69 6c 20 69 74 |uffer). |until it|
|00001460| 20 66 69 6e 64 73 20 61 | 20 63 68 61 6e 67 65 20 | finds a| change |
|00001470| 69 6e 20 73 6f 6d 65 20 | 74 65 78 74 20 70 72 6f |in some |text pro|
|00001480| 70 65 72 74 79 2c 20 74 | 68 65 6e 20 72 65 74 75 |perty, t|hen retu|
|00001490| 72 6e 73 20 74 68 65 20 | 70 6f 73 69 74 69 6f 6e |rns the |position|
|000014a0| 20 6f 66 0a 20 74 68 65 | 20 63 68 61 6e 67 65 2e | of. the| change.|
|000014b0| 0a 52 65 74 75 72 6e 73 | 20 6e 69 6c 20 69 66 20 |.Returns| nil if |
|000014c0| 74 68 65 20 70 72 6f 70 | 65 72 74 69 65 73 20 72 |the prop|erties r|
|000014d0| 65 6d 61 69 6e 20 75 6e | 63 68 61 6e 67 65 64 20 |emain un|changed |
|000014e0| 61 6c 6c 20 74 68 65 20 | 77 61 79 20 74 6f 20 74 |all the |way to t|
|000014f0| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 2e 0a 49 66 |he begin|ning..If|
|00001500| 20 74 68 65 20 76 61 6c | 75 65 20 69 73 20 6e 6f | the val|ue is no|
|00001510| 6e 2d 6e 69 6c 2c 20 69 | 74 20 69 73 20 61 20 70 |n-nil, i|t is a p|
|00001520| 6f 73 69 74 69 6f 6e 20 | 6c 65 73 73 20 74 68 61 |osition |less tha|
|00001530| 6e 20 50 4f 53 2c 20 6e | 65 76 65 72 20 65 71 75 |n POS, n|ever equ|
|00001540| 61 6c 2e 0a 49 66 20 74 | 68 65 20 6f 70 74 69 6f |al..If t|he optio|
|00001550| 6e 61 6c 20 74 68 69 72 | 64 20 61 72 67 75 6d 65 |nal thir|d argume|
|00001560| 6e 74 20 4c 49 4d 49 54 | 20 69 73 20 6e 6f 6e 2d |nt LIMIT| is non-|
|00001570| 6e 69 6c 2c 20 64 6f 6e | 27 74 20 73 65 61 72 63 |nil, don|'t searc|
|00001580| 68 20 62 61 63 6b 0a 20 | 70 61 73 74 20 70 6f 73 |h back. |past pos|
|00001590| 69 74 69 6f 6e 20 4c 49 | 4d 49 54 3b 20 72 65 74 |ition LI|MIT; ret|
|000015a0| 75 72 6e 20 4c 49 4d 49 | 54 20 69 66 20 6e 6f 74 |urn LIMI|T if not|
|000015b0| 68 69 6e 67 20 69 73 20 | 66 6f 75 6e 64 20 75 6e |hing is |found un|
|000015c0| 74 69 6c 20 4c 49 4d 49 | 54 2e 0a 49 66 20 74 77 |til LIMI|T..If tw|
|000015d0| 6f 20 6f 72 20 6d 6f 72 | 65 20 65 78 74 65 6e 74 |o or mor|e extent|
|000015e0| 73 20 77 69 74 68 20 63 | 6f 6e 66 6c 69 63 74 69 |s with c|onflicti|
|000015f0| 6e 67 20 6e 6f 6e 2d 6e | 69 6c 20 76 61 6c 75 65 |ng non-n|il value|
|00001600| 73 20 66 6f 72 20 61 20 | 70 72 6f 70 65 72 74 79 |s for a |property|
|00001610| 20 6f 76 65 72 6c 61 70 | 0a 20 61 20 70 61 72 74 | overlap|. a part|
|00001620| 69 63 75 6c 61 72 20 63 | 68 61 72 61 63 74 65 72 |icular c|haracter|
|00001630| 2c 20 69 74 20 69 73 20 | 75 6e 64 65 66 69 6e 65 |, it is |undefine|
|00001640| 64 20 77 68 69 63 68 20 | 76 61 6c 75 65 20 69 73 |d which |value is|
|00001650| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 74 6f 20 62 | conside|red to b|
|00001660| 65 0a 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |e. the v|alue of |
|00001670| 74 68 65 20 70 72 6f 70 | 65 72 74 79 2e 20 28 4e |the prop|erty. (N|
|00001680| 6f 74 65 20 74 68 61 74 | 20 74 68 69 73 20 73 69 |ote that| this si|
|00001690| 74 75 61 74 69 6f 6e 20 | 77 69 6c 6c 20 6e 6f 74 |tuation |will not|
|000016a0| 20 68 61 70 70 65 6e 20 | 69 66 0a 20 79 6f 75 20 | happen |if. you |
|000016b0| 61 6c 77 61 79 73 20 75 | 73 65 20 74 68 65 20 74 |always u|se the t|
|000016c0| 65 78 74 2d 70 72 6f 70 | 65 72 74 79 20 70 72 69 |ext-prop|erty pri|
|000016d0| 6d 69 74 69 76 65 73 2e | 29 1f 0a 28 64 65 66 61 |mitives.|)..(defa|
|000016e0| 6c 69 61 73 20 27 70 72 | 65 76 69 6f 75 73 2d 70 |lias 'pr|evious-p|
|000016f0| 72 6f 70 65 72 74 79 2d | 63 68 61 6e 67 65 20 23 |roperty-|change #|
|00001700| 5b 28 70 6f 73 20 26 6f | 70 74 69 6f 6e 61 6c 20 |[(pos &o|ptional |
|00001710| 62 75 66 66 65 72 2d 6f | 72 2d 73 74 72 69 6e 67 |buffer-o|r-string|
|00001720| 20 6c 69 6d 69 74 29 20 | 22 08 3f 19 08 ac 8c c2 | limit) |".?.....|
|00001730| 0b 21 ab 85 c4 0b 21 aa | 81 c5 10 c6 0e 07 53 0b |.!....!.|......S.|
|00001740| 5c 22 1e 08 c9 0e 07 0b | 5c 22 89 16 07 08 56 ab |\"......|\"....V.|
|00001750| 8c ca 0e 08 c6 0e 07 53 | 0b 5c 22 5c 22 ac 68 29 |.......S|.\"\".h)|
|00001760| 0e 07 08 56 ab 84 0e 07 | aa 85 09 3f ad 81 08 29 |...V....|...?...)|
|00001770| 87 22 20 5b 6c 69 6d 69 | 74 20 6c 69 6d 69 74 2d |." [limi|t limit-|
|00001780| 77 61 73 2d 6e 69 6c 20 | 62 75 66 66 65 72 70 20 |was-nil |bufferp |
|00001790| 62 75 66 66 65 72 2d 6f | 72 2d 73 74 72 69 6e 67 |buffer-o|r-string|
|000017a0| 20 70 6f 69 6e 74 2d 6d | 69 6e 20 30 20 65 78 74 | point-m|in 0 ext|
|000017b0| 65 6e 74 2d 70 72 6f 70 | 65 72 74 69 65 73 2d 61 |ent-prop|erties-a|
|000017c0| 74 20 70 6f 73 20 76 61 | 6c 75 65 20 70 72 65 76 |t pos va|lue prev|
|000017d0| 69 6f 75 73 2d 65 78 74 | 65 6e 74 2d 63 68 61 6e |ious-ext|ent-chan|
|000017e0| 67 65 20 70 6c 69 73 74 | 73 2d 65 71 5d 20 35 20 |ge plist|s-eq] 5 |
|000017f0| 28 23 24 20 2e 20 35 30 | 38 31 29 5d 29 0a 23 40 |(#$ . 50|81)]).#@|
|00001800| 33 38 31 20 52 65 74 75 | 72 6e 20 74 68 65 20 62 |381 Retu|rn the b|
|00001810| 6f 75 6e 64 73 20 6f 66 | 20 70 72 6f 70 65 72 74 |ounds of| propert|
|00001820| 79 20 50 52 4f 50 20 61 | 74 20 50 4f 53 2e 0a 54 |y PROP a|t POS..T|
|00001830| 68 69 73 20 72 65 74 75 | 72 6e 73 20 61 20 63 6f |his retu|rns a co|
|00001840| 6e 73 20 28 53 54 41 52 | 54 20 2e 20 45 4e 44 29 |ns (STAR|T . END)|
|00001850| 20 6f 66 20 74 68 65 20 | 6c 61 72 67 65 73 74 20 | of the |largest |
|00001860| 72 65 67 69 6f 6e 20 6f | 66 20 74 65 78 74 20 63 |region o|f text c|
|00001870| 6f 6e 74 61 69 6e 69 6e | 67 0a 50 4f 53 20 77 68 |ontainin|g.POS wh|
|00001880| 69 63 68 20 68 61 73 20 | 61 20 6e 6f 6e 2d 6e 69 |ich has |a non-ni|
|00001890| 6c 20 76 61 6c 75 65 20 | 66 6f 72 20 50 52 4f 50 |l value |for PROP|
|000018a0| 2e 20 20 54 68 65 20 72 | 65 74 75 72 6e 20 76 61 |.  The r|eturn va|
|000018b0| 6c 75 65 20 69 73 20 6e | 69 6c 20 69 66 20 50 4f |lue is n|il if PO|
|000018c0| 53 0a 64 6f 65 73 20 6e | 6f 74 20 68 61 76 65 20 |S.does n|ot have |
|000018d0| 61 20 6e 6f 6e 2d 6e 69 | 6c 20 76 61 6c 75 65 20 |a non-ni|l value |
|000018e0| 66 6f 72 20 50 52 4f 50 | 2e 20 20 4f 42 4a 45 43 |for PROP|.  OBJEC|
|000018f0| 54 20 73 70 65 63 69 66 | 69 65 73 20 74 68 65 20 |T specif|ies the |
|00001900| 62 75 66 66 65 72 0a 6f | 72 20 73 74 72 69 6e 67 |buffer.o|r string|
|00001910| 20 74 6f 20 73 65 61 72 | 63 68 20 69 6e 2e 20 20 | to sear|ch in.  |
|00001920| 4f 70 74 69 6f 6e 61 6c | 20 61 72 67 20 41 54 2d |Optional| arg AT-|
|00001930| 46 4c 41 47 20 63 6f 6e | 74 72 6f 6c 73 20 77 68 |FLAG con|trols wh|
|00001940| 61 74 20 22 61 74 20 50 | 4f 53 22 0a 6d 65 61 6e |at "at P|OS".mean|
|00001950| 73 2c 20 61 6e 64 20 68 | 61 73 20 74 68 65 20 73 |s, and h|as the s|
|00001960| 61 6d 65 20 6d 65 61 6e | 69 6e 67 20 61 73 20 66 |ame mean|ing as f|
|00001970| 6f 72 20 60 65 78 74 65 | 6e 74 2d 61 74 27 2e 1f |or `exte|nt-at'..|
|00001980| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 65 78 74 |.(defali|as 'text|
|00001990| 2d 70 72 6f 70 65 72 74 | 79 2d 62 6f 75 6e 64 73 |-propert|y-bounds|
|000019a0| 20 23 5b 28 70 6f 73 20 | 70 72 6f 70 20 26 6f 70 | #[(pos |prop &op|
|000019b0| 74 69 6f 6e 61 6c 20 6f | 62 6a 65 63 74 20 61 74 |tional o|bject at|
|000019c0| 2d 66 6c 61 67 29 20 22 | 08 ac 82 70 10 c1 5c 6e |-flag) "|...p..\n|
|000019d0| 0b 08 0c 24 ad aa 08 3b | ab 83 c5 aa 83 c6 08 21 |...$...;|.......!|
|000019e0| 08 3b ab 84 08 47 aa 83 | c7 08 21 1e 08 1e 09 ca |.;...G..|..!.....|
|000019f0| 5c 6e 54 0b 08 0e 09 24 | cb 5c 6e 0b 08 0e 08 24 |\nT....$|.\n....$|
|00001a00| 2a 42 87 22 20 5b 6f 62 | 6a 65 63 74 20 67 65 74 |*B." [ob|ject get|
|00001a10| 2d 63 68 61 72 2d 70 72 | 6f 70 65 72 74 79 20 70 |-char-pr|operty p|
|00001a20| 6f 73 20 70 72 6f 70 20 | 61 74 2d 66 6c 61 67 20 |os prop |at-flag |
|00001a30| 30 20 70 6f 69 6e 74 2d | 6d 69 6e 20 70 6f 69 6e |0 point-|min poin|
|00001a40| 74 2d 6d 61 78 20 65 6e | 64 20 62 65 67 69 6e 20 |t-max en|d begin |
|00001a50| 70 72 65 76 69 6f 75 73 | 2d 73 69 6e 67 6c 65 2d |previous|-single-|
|00001a60| 70 72 6f 70 65 72 74 79 | 2d 63 68 61 6e 67 65 20 |property|-change |
|00001a70| 6e 65 78 74 2d 73 69 6e | 67 6c 65 2d 70 72 6f 70 |next-sin|gle-prop|
|00001a80| 65 72 74 79 2d 63 68 61 | 6e 67 65 5d 20 36 20 28 |erty-cha|nge] 6 (|
|00001a90| 23 24 20 2e 20 36 31 34 | 38 29 5d 29 0a 23 40 33 |#$ . 614|8)]).#@3|
|00001aa0| 37 33 20 52 65 74 75 72 | 6e 20 74 68 65 20 43 4f |73 Retur|n the CO|
|00001ab0| 55 4e 54 74 68 20 62 6f | 75 6e 64 65 64 20 70 72 |UNTth bo|unded pr|
|00001ac0| 6f 70 65 72 74 79 20 72 | 65 67 69 6f 6e 20 6f 66 |operty r|egion of|
|00001ad0| 20 70 72 6f 70 65 72 74 | 79 20 50 52 4f 50 20 61 | propert|y PROP a|
|00001ae0| 66 74 65 72 20 50 4f 53 | 2e 0a 49 66 20 43 4f 55 |fter POS|..If COU|
|00001af0| 4e 54 20 69 73 20 6c 65 | 73 73 20 74 68 61 6e 20 |NT is le|ss than |
|00001b00| 7a 65 72 6f 2c 20 73 65 | 61 72 63 68 20 62 61 63 |zero, se|arch bac|
|00001b10| 6b 77 61 72 64 73 2e 20 | 20 54 68 69 73 20 72 65 |kwards. | This re|
|00001b20| 74 75 72 6e 73 20 61 20 | 63 6f 6e 73 0a 28 53 54 |turns a |cons.(ST|
|00001b30| 41 52 54 20 2e 20 45 4e | 44 29 20 6f 66 20 74 68 |ART . EN|D) of th|
|00001b40| 65 20 43 4f 55 4e 54 74 | 68 20 6d 61 78 69 6d 61 |e COUNTt|h maxima|
|00001b50| 6c 20 72 65 67 69 6f 6e | 20 6f 66 20 74 65 78 74 |l region| of text|
|00001b60| 20 74 68 61 74 20 62 65 | 67 69 6e 73 20 61 66 74 | that be|gins aft|
|00001b70| 65 72 20 50 4f 53 0a 28 | 73 74 61 72 74 73 20 62 |er POS.(|starts b|
|00001b80| 65 66 6f 72 65 20 50 4f | 53 29 20 61 6e 64 20 68 |efore PO|S) and h|
|00001b90| 61 73 20 61 20 6e 6f 6e | 2d 6e 69 6c 20 76 61 6c |as a non|-nil val|
|00001ba0| 75 65 20 66 6f 72 20 50 | 52 4f 50 2e 20 20 49 66 |ue for P|ROP.  If|
|00001bb0| 20 74 68 65 72 65 20 61 | 72 65 6e 27 74 0a 74 68 | there a|ren't.th|
|00001bc0| 61 74 20 6d 61 6e 79 20 | 72 65 67 69 6f 6e 73 2c |at many |regions,|
|00001bd0| 20 6e 69 6c 20 69 73 20 | 72 65 74 75 72 6e 65 64 | nil is |returned|
|00001be0| 2e 20 20 4f 42 4a 45 43 | 54 20 73 70 65 63 69 66 |.  OBJEC|T specif|
|00001bf0| 69 65 73 20 74 68 65 20 | 62 75 66 66 65 72 20 6f |ies the |buffer o|
|00001c00| 72 0a 73 74 72 69 6e 67 | 20 74 6f 20 73 65 61 72 |r.string| to sear|
|00001c10| 63 68 20 69 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ch in...|(defalia|
|00001c20| 73 20 27 6e 65 78 74 2d | 74 65 78 74 2d 70 72 6f |s 'next-|text-pro|
|00001c30| 70 65 72 74 79 2d 62 6f | 75 6e 64 73 20 23 5b 28 |perty-bo|unds #[(|
|00001c40| 63 6f 75 6e 74 20 70 6f | 73 20 70 72 6f 70 20 26 |count po|s prop &|
|00001c50| 6f 70 74 69 6f 6e 61 6c | 20 6f 62 6a 65 63 74 29 |optional| object)|
|00001c60| 20 22 08 ac 82 70 10 08 | 3b ab 83 c1 aa 83 c2 08 | "...p..|;.......|
|00001c70| 21 08 3b ab 84 08 47 aa | 83 c3 08 21 1c 1d c6 c7 |!.;...G.|...!....|
|00001c80| 8d 2a 87 22 20 5b 6f 62 | 6a 65 63 74 20 30 20 70 |.*." [ob|ject 0 p|
|00001c90| 6f 69 6e 74 2d 6d 69 6e | 20 70 6f 69 6e 74 2d 6d |oint-min| point-m|
|00001ca0| 61 78 20 65 6e 64 20 62 | 65 67 69 6e 20 68 69 74 |ax end b|egin hit|
|00001cb0| 2d 65 6e 64 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |-end (by|te-code |
|00001cc0| 22 08 c1 56 ab c2 08 c1 | 56 ab ad 5c 6e 0b 59 ab |"..V....|V..\n.Y.|
|00001cd0| 87 c4 c5 c6 5c 22 88 aa | 9b c7 5c 6e 0e 08 0e 09 |....\"..|..\n....|
|00001ce0| 23 ab 89 ca 5c 6e 0e 08 | 0e 09 0b 24 12 ca 5c 6e |#...\n..|...$..\n|
|00001cf0| 0e 08 0e 09 0b 24 12 08 | 53 89 10 aa 4f 5c 6e 0b |.....$..|S...O\n.|
|00001d00| 57 ad d2 5c 6e ca 5c 6e | 0e 08 0e 09 0b 24 42 87 |W..\n.\n|.....$B.|
|00001d10| 08 c1 57 ab b1 5c 6e 0e | 0b 58 ab 87 c4 c5 c6 5c |..W..\n.|.X.....\|
|00001d20| 22 88 aa 9e c7 5c 6e 53 | 0e 08 0e 09 23 ab 8a cc |"....\nS|....#...|
|00001d30| 5c 6e 0e 08 0e 09 0e 0b | 24 12 cc 5c 6e 0e 08 0e |\n......|$..\n...|
|00001d40| 09 0e 0b 24 12 08 54 89 | 10 aa 4b 5c 6e 0e 0b 56 |...$..T.|..K\n..V|
|00001d50| ad 8b cc 5c 6e 0e 08 0e | 09 0e 0b 24 5c 6e 42 87 |...\n...|...$\nB.|
|00001d60| 22 20 5b 63 6f 75 6e 74 | 20 30 20 70 6f 73 20 65 |" [count| 0 pos e|
|00001d70| 6e 64 20 74 68 72 6f 77 | 20 68 69 74 2d 65 6e 64 |nd throw| hit-end|
|00001d80| 20 6e 69 6c 20 67 65 74 | 2d 63 68 61 72 2d 70 72 | nil get|-char-pr|
|00001d90| 6f 70 65 72 74 79 20 70 | 72 6f 70 20 6f 62 6a 65 |operty p|rop obje|
|00001da0| 63 74 20 6e 65 78 74 2d | 73 69 6e 67 6c 65 2d 70 |ct next-|single-p|
|00001db0| 72 6f 70 65 72 74 79 2d | 63 68 61 6e 67 65 20 62 |roperty-|change b|
|00001dc0| 65 67 69 6e 20 70 72 65 | 76 69 6f 75 73 2d 73 69 |egin pre|vious-si|
|00001dd0| 6e 67 6c 65 2d 70 72 6f | 70 65 72 74 79 2d 63 68 |ngle-pro|perty-ch|
|00001de0| 61 6e 67 65 5d 20 37 29 | 5d 20 33 20 28 23 24 20 |ange] 7)|] 3 (#$ |
|00001df0| 2e 20 36 38 31 39 29 5d | 29 0a 28 70 72 6f 76 69 |. 6819)]|).(provi|
|00001e00| 64 65 20 27 74 65 78 74 | 2d 70 72 6f 70 73 29 0a |de 'text|-props).|
+--------+-------------------------+-------------------------+--------+--------+